#!/usr/bin/env perl
#itemslotgen.pl by pfft
#debugger included

open ITEMS, "idnum2itemdisplaynametable.txt";
open SLOTS, "itemslotcounttable.txt";
open OUT, ">items.txt";
open BUG, ">debug.txt";

$x = 0;
$z = 0;
$slot = 0;
$slot_cnt = 0;
$item_cnt = 0;

print BUG "#---ITEMS-WITH-SLOTS---#\n>\n";

while (<SLOTS>)
{
 if (($_ =~ "#.#") && (substr($&,1,1) != 0)) {
   @slot_id[$x] = $`;
   @slot_count[$x] = substr($&,1,1);
   print BUG ++$slot_cnt . ".\t" . @slot_count[$x] . "\t" . @slot_id[$x] . "\n";
   $x++;
 }
}

print BUG "\n#---SLOTS-ADDED-TO-ITEMS---#\n>\n";

while (<ITEMS>)
{
 if ($_ =~ "#") {
   for ($y=0; $y<$x; $y++) {
     if ($` == @slot_id[$y]) {
       print OUT substr($_,0,-2) . "[" . @slot_count[$y] . "]#\n";
       print BUG ++$item_cnt . ".\t" . @slot_count[$y] . "\t" . $_;
       @item_id[$z++] = $`;
       $slot = 1;
     }
   }
 }

 if ($slot == 0) { print OUT $_; }
 else { $slot = 0; }
}

print BUG "\n#---INFO---#\n>\n";

if ($slot_cnt == $item_cnt) { print BUG "count match...\n"; }
else {
 for ($y=0; $y<$item_cnt; $y++) {
   for ($x=0; $x<$slot_cnt; $x++) {
     if (@slot_id[$x] == @item_id[$y]) { @slot_id[$x] = "#"; }
   }
 }
 for ($x=0; $x<$slot_cnt; $x++) {
   if (@slot_id[$x] != "#") { print BUG @slot_id[$x] . " has no match...\n"; }
 }
}

close ITEMS;
close SLOTS;
close OUT;
close BUG;

Guard[1] 5 1 0

#!/usr/bin/perl
#float 17/04/2004

$displayname_tbl = 'idnum2itemdisplaynametable.txt';
$slotcount_tbl = 'itemslotcounttable.txt';
$outputfile = 'items.txt';

open (SOURCE, "< $displayname_tbl");
@source = <SOURCE>;
close SOURCE;

open (TABLE, "< $slotcount_tbl");

$count = 0;
#!/usr/bin/perl

while (<>) {
       @entry = split('#');
       $entry[1] =~ s/(^\s+)|(\s+$)|(\n)//g;
       $entry[1] =~ s/\s/_/g;
       print "$entry[0]#$entry[1]#\n";
}



close TABLE;
print "parsed $count entries from $slotcount_tbl\n";

open (OUT, "> $outputfile");
print OUT "// generated by floAt's add_slot.pl script based on [$displayname_tbl] and [$slotcount_tbl]\n\n";

$count = 0;
foreach (@source) {
       chomp;
       if (/(^\d+)\#([^\#]+)\#/) {
               if ($slotcount{$1}) {
                       print OUT "$1\#$2 [$slotcount{$1}]\#\n";

               }
               else {
                       print OUT "$_\n";
               }
       }
       else {
               print OUT "$_\n";
       }

       $count++;
}

close OUT;

print "generated $count entries in $outputfile\n";